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MTHSAINT_R2 
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/ ; File: MTHAINT.MAR Edit: JAW1006 


| eebenmedeoonenseekeesnnudonteueneneednanmeedeeeedsaonessaoneesoonsennenesens 


COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


:* 
** ® 
*® ® 
*® ® 
*® ® 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
tt INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. * 
*® ® 
j* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
*® au 
‘* * 
‘® * 
:* a 
** ft 
** ® 
*® * 
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CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; ; FACILITY: MATH LIBRARY 
: "ABSTRACT: 


This module contains routine MTHSAINT: 
truncate a floating-point number. 
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: ; VERSION: 0 
; HISTORY: 
; : AUTHOR: 
Jonathan M. Taylor, 30-Jul-77: Version 0 
yt : MODIFIED BY: 
4 
48 : 
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s. prt: 
ae 
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09 : ! 1-004 
8; 1-005 
fi 


-SBTTL HISTORY 


C 
; Edit History for Version 0 of MYHSAINT 
1-001 
1- 
4 1 


disable and res 


Make the primar 
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; Detailed Current Edit History 


Remove MTHSFLAG_JACKET. TNH 5=July-78 

Update | person fumber and copyright notice. JBS 16-NOV-78 
Add to the PSECT directive. JBS 21-DEC-78 

Add a JSB entry point. JBS 16- augei9 9 


OE as By arene r°4 £038 that it can 


- Remove MTHSAINT_R1, since the "Baste cg conot lor has converted to 
the _R2 entry point. JBS 26-N 
- Mask all bits except IV when restoring PSW. JAW 14-Jul-1981 
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ro_V04-00 
RCJMTHAINT .MAR; 1 
~SBTTL DECLARATIONS 


INCLUDE FILES: 


EXTERNAL SYMBOLS: 


; PSECT DECLARATIONS: 
$s PIC, SHR, LONG, EXE, NOWRT 


; EQUATED SYMBOLS: 


MTHSAIN 
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Real to Real truncation 
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16*SEP=1984 01:02:35 VAX/VMS Macro v04-00 
green lone $1 :sb 42 RESarNAINe 


-SBTTL MTHSAINT Real to Real truncation 


p++ 
; FUNCTIONAL DESCRIPTION: 


ne oy the arguments with zeroes to the right of the decimal 
point. 


CALLING SEQUENCE: 
Truncation.wf.v = MTHSAINT (arg.rf.r) 
; INPUT PARAMETERS: 


The one aryepens is a single-precision floating-point value 
and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
Reserved Operand and Floating Underflow exceptions can occur. 


-ENTRY MTHSAINT “M<> 

MOVF  a@4(AP), RO ; RO = arg 

EMODF RO, #0, #1, RI, RI ; R1 = fraction_part (RO) 
auer R1, RO ; RO = integer_part(RO) 


cr 
MTHRTL.SRCJMTHAINT MAR; 1 
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-SBTTL MTHSAINT_R2 JSB entry point 


z 
ma 


p++ 

3; FUNCTIONAL DESCRIPTION: 

nb by the arguments with zeroes to the right of the decimal 
poin 


CALLING SEQUENCE: 
Truncation.wf.v = JSB MTHSAINT_R2 (arg.rf.v) 
INPUT PARAMETERS: 
The one orppent is a single-precision floating-point value 


UN 
JSB 
144 
13 
i 
125 : 
150 ; 
Be 
1 4 : 
154 ; 
! 5; 
B18 13 
i 133 ; and is call-by-value. 
010 161 : IMPLICIT INPUTS: 
010 16¢ ° 
O10 184; tb 
318 165 > OUTPUT PARAMETERS: 
an 
010 169 > IMPLICIT OUTPUTS: 
01 170 ; 
a9 10) : NONE 
001 138 > COMPLETION CODES: 
0010 174; 
0040 1? 3 NONE 
001 177 : SIDE EFFECTS: 
0010 179 : Reserved Operand and Floating Underflow exceptions can occur. 
010 181 :-- 
O10 183 
01 184 MTHSAINT_R2:: ; RO = arg 
52 oc 001 185 MOVPSL R2 3 Save current PSL 
8 44 1 1 § BICPSW #PSLSM_IV ; Disable integer overflow 
51 51 08 98 4 14 #1 EMODF RO, #0, #1, R1, RI 3; R1 = fraction_part (RO) 
5 1 42 1A 188 SUBF ; RO = integer_part(RO) 
52 FFDF ef AA 001D 189 ICw #*C<PSLSM_IV>, R2 > Clear all but IV 
2 Be 022 190 BISPSW R2 3; Restore previous IV 
4 13) $B ; Return to caller 
$098 198 END 


ror 
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ATHSAINT 
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terme en wen enw eocwma $ 


Psect synopsis ! 
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PSECT name Allocation PSECT No. Attributes 

», 6 « 0000000 < -) 00 ¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS$ $88 2 ( oF 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

_MTHSCODE ( 37.) ee Bet PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
Peer eee woe ee Ce wane wea awa me + 
: Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 

Initialization 1 0:00:90.09 8:00:01 .08 

Command processing 134 0:00:00.45 0:00:02.16 

Pass 113 0:00: 5-80 0:00:04.01 

Symbol table sort 0 3: : t 0:00:00.03 

Pass 46 :00:00.46 0:00: ety 

Symbol table output 0:00:00.01 0:00:00.01 

Psect synopsis output Bo #20: 3-8 0:00:00.02 

Cross-reference output 0:00: 3-8 0:00:00.00 

Assembler run totals 330 00:00:02.06 00:00:09.44 


The_working get Limit was 1050 pages. 

4117 bytes (9 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 41 non-local and 0 local symbols. 
193 source Lines were read in Pass 1, produc ing 13 object records in Pass 2. 

8 pages of virtual memory were used to define 7 macros. 


: 
dooce woocus 


we eee oe mee woman + 


Macro library name 
“$255$DUAZ8:(SYSLIBISTARLET.MLB;2002 (i‘(sé~*~S;*S~S™ ct 
98 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHAINT/OBJ=OBJ$:MTHAINT MSRC$:MTHAINT/UPDATE=(ENHS$:MTHAINT ) 
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